home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xkeyboardstate.t < prev    next >
Text File  |  1990-06-01  |  2KB  |  37 lines
  1. (herald xkeyboardstate (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XKEYBOARDSTATE) (CONS 'XKEYBOARDSTATEP (MAKE-BYTEV 56)))
  3. (DEFINE (XKEYBOARDSTATE-KEY_CLICK_PERCENT X)
  4.         (MREF-INTEGER (CHK-XKEYBOARDSTATEP X) 0))
  5. (DEFINE (XKEYBOARDSTATE-KEY_CLICK_PERCENT! X Y)
  6.         (SET-MREF-INTEGER! (CHK-XKEYBOARDSTATEP X) 0 Y))
  7. (DEFINE (XKEYBOARDSTATE-BELL_PERCENT X)
  8.         (MREF-INTEGER (CHK-XKEYBOARDSTATEP X) 4))
  9. (DEFINE (XKEYBOARDSTATE-BELL_PERCENT! X Y)
  10.         (SET-MREF-INTEGER! (CHK-XKEYBOARDSTATEP X) 4 Y))
  11. (DEFINE (XKEYBOARDSTATE-BELL_PITCH X) (MREF-INTEGER (CHK-XKEYBOARDSTATEP X) 8))
  12. (DEFINE (XKEYBOARDSTATE-BELL_PITCH! X Y)
  13.         (SET-MREF-INTEGER! (CHK-XKEYBOARDSTATEP X) 8 Y))
  14. (DEFINE (XKEYBOARDSTATE-BELL_DURATION X)
  15.         (MREF-INTEGER (CHK-XKEYBOARDSTATEP X) 12))
  16. (DEFINE (XKEYBOARDSTATE-BELL_DURATION! X Y)
  17.         (SET-MREF-INTEGER! (CHK-XKEYBOARDSTATEP X) 12 Y))
  18. (DEFINE (XKEYBOARDSTATE-LED_MASK X) (MREF-INTEGER (CHK-XKEYBOARDSTATEP X) 16))
  19. (DEFINE (XKEYBOARDSTATE-LED_MASK! X Y)
  20.         (SET-MREF-INTEGER! (CHK-XKEYBOARDSTATEP X) 16 Y))
  21. (DEFINE (XKEYBOARDSTATE-GLOBAL_AUTO_REPEAT X)
  22.         (MREF-INTEGER (CHK-XKEYBOARDSTATEP X) 20))
  23. (DEFINE (XKEYBOARDSTATE-GLOBAL_AUTO_REPEAT! X Y)
  24.         (SET-MREF-INTEGER! (CHK-XKEYBOARDSTATEP X) 20 Y))
  25. (DEFINE (XKEYBOARDSTATE-AUTO_REPEATS X I)
  26.         ((LAMBDA (X Y I) (MREF-8-U X (FX+ Y (FX* 1 I))))
  27.          (CHK-XKEYBOARDSTATEP X)
  28.          24
  29.          I))
  30. (DEFINE (XKEYBOARDSTATE-AUTO_REPEATS! X I Y)
  31.         ((LAMBDA (X Y I Z)
  32.                  (SET-MREF-8-U! X (FX+ Y (FX* 1 I)) ((LAMBDA (X) X) Z)))
  33.          (CHK-XKEYBOARDSTATEP X)
  34.          24
  35.          I
  36.          Y))
  37.